/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_5 / issue_07 / follower

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | fc 00 00 00 5c 01 00 00 |Archive.|....\...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 46 6f 6c 6c 6f 77 | 65 72 00 00 ff ff ff ff |.!Follow|er......|
|00000070| 46 fd ff ff 88 5a fc 1e | 00 00 00 00 ff ff ff ff |F....Z..|........|
|00000080| d8 00 00 80 82 21 42 6f | 6f 74 00 00 63 74 72 00 |.....!Bo|ot..ctr.|
|00000090| 5d 00 00 00 43 eb ff ff | 5f 36 fd a9 03 00 65 a1 |]...C...|_6....e.|
|000000a0| 5d 00 00 00 24 00 00 00 | 82 21 52 75 6e 00 00 00 |]...$...|.!Run...|
|000000b0| 63 74 72 00 31 00 00 00 | 43 eb ff ff 27 71 01 8e |ctr.1...|C...'q..|
|000000c0| 03 00 e9 f0 31 00 00 00 | a5 00 00 00 82 21 52 75 |....1...|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 00 | b3 0f 00 00 43 fb ff ff |nImage..|....C...|
|000000e0| 06 0d cf a3 03 00 9a 69 | b3 0f 00 00 fa 00 00 00 |.......i|........|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 72 00 e0 02 00 00 |.!Sprite|s.r.....|
|00000100| 43 f9 ff ff ed 0f bf 90 | 03 00 9a 4d e0 02 00 00 |C.......|...M....|
|00000110| d1 10 00 00 00 77 65 72 | 00 53 00 00 63 74 72 00 |.....wer|.S..ctr.|
|00000120| 6e 01 00 00 41 eb ff ff | a0 04 08 bc 83 00 4e eb |n...A...|......N.|
|00000130| 6e 01 00 00 c8 32 02 00 | 00 00 00 00 00 00 00 00 |n....2..|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | f8 01 00 00 46 69 6c 65 |........|....File|
|00000160| 44 61 74 61 82 21 42 6f | 6f 74 00 00 63 74 72 00 |Data.!Bo|ot..ctr.|
|00000170| 5d 00 00 00 43 eb ff ff | 5f 36 fd a9 03 00 65 a1 |]...C...|_6....e.|
|00000180| 49 63 6f 6e 53 70 72 69 | 74 65 73 20 3c 4f 62 65 |IconSpri|tes <Obe|
|00000190| 79 24 44 69 72 3e 2e 21 | 53 70 72 69 74 65 73 0a |y$Dir>.!|Sprites.|
|000001a0| 7c 20 54 68 69 73 20 66 | 69 6c 65 20 68 61 73 20 || This f|ile has |
|000001b0| 62 65 65 6e 20 69 6e 6e | 6f 63 75 6c 61 74 65 64 |been inn|oculated|
|000001c0| 20 61 67 61 69 6e 73 74 | 20 74 68 65 20 45 78 74 | against| the Ext|
|000001d0| 65 6e 64 20 56 69 72 75 | 73 0a 7c 7c ff 46 69 6c |end Viru|s.||.Fil|
|000001e0| 65 44 61 74 61 82 21 52 | 75 6e 00 00 00 63 74 72 |eData.!R|un...ctr|
|000001f0| 00 31 00 00 00 43 eb ff | ff 27 71 01 8e 03 00 e9 |.1...C..|.'q.....|
|00000200| f0 57 69 6d 70 73 6c 6f | 74 20 2d 6d 69 6e 20 38 |.Wimpslo|t -min 8|
|00000210| 6b 20 2d 6d 61 78 20 38 | 6b 0a 52 75 6e 20 3c 4f |k -max 8|k.Run <O|
|00000220| 62 65 79 24 44 69 72 3e | 2e 21 52 75 6e 49 6d 61 |bey$Dir>|.!RunIma|
|00000230| 67 65 46 69 6c 65 44 61 | 74 61 82 21 52 75 6e 49 |geFileDa|ta.!RunI|
|00000240| 6d 61 67 65 00 00 b3 0f | 00 00 43 fb ff ff 06 0d |mage....|..C.....|
|00000250| cf a3 03 00 9a 69 0d 00 | 0a 10 f4 20 3e 21 52 75 |.....i..|... >!Ru|
|00000260| 6e 49 6d 61 67 65 0d 00 | 0f 1c f4 20 a9 4d 4a 20 |nImage..|... .MJ |
|00000270| 41 6e 67 6f 76 65 20 31 | 36 20 44 65 63 20 31 39 |Angove 1|6 Dec 19|
|00000280| 39 31 0d 00 14 2b f4 20 | 4d 6f 76 65 20 61 20 6c |91...+. |Move a l|
|00000290| 69 6e 65 20 61 62 6f 75 | 74 20 74 68 65 20 73 63 |ine abou|t the sc|
|000002a0| 72 65 65 6e 20 72 61 6e | 64 6f 6d 6c 79 0d 00 1e |reen ran|domly...|
|000002b0| 38 f4 20 53 74 61 67 65 | 20 32 20 2d 20 6f 6e 6c |8. Stage| 2 - onl|
|000002c0| 79 20 70 6c 6f 74 20 74 | 68 65 20 6c 69 6e 65 20 |y plot t|he line |
|000002d0| 69 66 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 63 6f |if backg|round co|
|000002e0| 6c 6f 75 72 2e 0d 00 28 | 31 f4 20 53 74 61 67 65 |lour...(|1. Stage|
|000002f0| 20 33 20 2d 20 6d 61 6b | 65 20 77 6f 72 6b 20 6d | 3 - mak|e work m|
|00000300| 75 6c 74 69 74 61 73 6b | 69 6e 67 20 69 6e 20 64 |ultitask|ing in d|
|00000310| 65 73 6b 74 6f 70 0d 00 | 2d 2c f4 20 53 74 61 67 |esktop..|-,. Stag|
|00000320| 65 20 34 20 2d 20 6d 61 | 6b 65 20 74 6f 20 66 6f |e 4 - ma|ke to fo|
|00000330| 6c 6c 6f 77 20 6d 6f 75 | 73 65 20 70 6f 69 6e 74 |llow mou|se point|
|00000340| 65 72 0d 00 2e 35 f4 20 | 41 6e 64 20 6f 6e 6c 79 |er...5. |And only|
|00000350| 20 6f 6e 20 32 32 20 4a | 61 6e 20 31 39 39 32 20 | on 22 J|an 1992 |
|00000360| 64 69 64 20 49 20 61 64 | 64 20 6c 69 6e 65 20 38 |did I ad|d line 8|
|00000370| 35 21 21 21 21 21 21 0d | 00 32 e8 f4 20 31 30 20 |5!!!!!!.|.2.. 10 |
|00000380| 44 65 63 20 31 39 39 31 | 20 20 20 20 20 20 20 20 |Dec 1991|        |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 49 27 76 |        |     I'v|
|000003d0| 65 20 73 74 6f 70 70 65 | 64 20 67 69 76 69 6e 67 |e stoppe|d giving|
|000003e0| 20 63 6f 6d 6d 65 6e 74 | 73 20 61 62 6f 75 74 20 | comment|s about |
|000003f0| 4d 6f 69 20 69 6e 20 74 | 68 65 73 65 20 52 45 4d |Moi in t|hese REM|
|00000400| 73 20 63 6f 73 20 49 20 | 64 6f 6e 27 74 20 20 20 |s cos I |don't   |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 72 69 |        |     wri|
|00000420| 74 65 20 6e 65 61 72 6c | 79 20 61 73 20 6d 61 6e |te nearl|y as man|
|00000430| 79 20 70 72 6f 67 72 61 | 6d 6d 65 73 20 61 73 20 |y progra|mmes as |
|00000440| 62 65 66 6f 72 65 20 2d | 20 49 20 75 73 65 20 74 |before -| I use t|
|00000450| 68 65 20 45 4f 4e b0 73 | 20 6e 6f 77 2e 2e 2e 0d |he EON.s| now....|
|00000460| 00 50 16 74 61 73 6b 6e | 61 6d 65 24 3d 22 46 6f |.P.taskn|ame$="Fo|
|00000470| 6c 6c 6f 77 22 0d 00 55 | 0c 44 25 3d b3 28 2d 91 |llow"..U|.D%=.(-.|
|00000480| 29 0d 00 58 05 3a 0d 00 | 59 05 3a 0d 00 5a 0e f2 |)..X.:..|Y.:..Z..|
|00000490| 77 69 6d 70 5f 69 6e 69 | 74 0d 00 5b 05 3a 0d 00 |wimp_ini|t..[.:..|
|000004a0| 5c 05 3a 0d 00 64 2b 6c | 65 6e 67 74 68 25 3d 32 |\.:..d+l|ength%=2|
|000004b0| 30 20 3a 20 f4 20 6e 75 | 6d 62 65 72 20 6f 66 20 |0 : . nu|mber of |
|000004c0| 70 6f 69 6e 74 73 20 69 | 6e 20 6c 69 6e 65 0d 00 |points i|n line..|
|000004d0| 6e 22 63 6f 6c 6f 75 72 | 25 3d 37 2b b3 28 38 29 |n"colour|%=7+.(8)|
|000004e0| 20 3a 20 f4 20 6c 69 6e | 65 20 63 6f 6c 6f 75 72 | : . lin|e colour|
|000004f0| 0d 00 78 27 62 61 63 6b | 67 72 6f 75 6e 64 25 3d |..x'back|ground%=|
|00000500| 34 20 3a 20 f4 20 62 61 | 63 6b 67 72 6f 75 6e 64 |4 : . ba|ckground|
|00000510| 20 63 6f 6c 6f 75 72 0d | 00 8c 3f 73 71 75 69 67 | colour.|..?squig|
|00000520| 67 6c 79 6e 65 73 73 25 | 3d 34 20 3a 20 f4 20 6c |glyness%|=4 : . l|
|00000530| 6f 77 65 72 20 3d 20 6d | 6f 72 65 20 73 71 75 69 |ower = m|ore squi|
|00000540| 67 67 6c 79 20 2d 20 6e | 6f 20 6c 6f 77 65 72 20 |ggly - n|o lower |
|00000550| 74 68 61 6e 20 31 0d 01 | 90 38 64 69 72 78 25 3d |than 1..|.8dirx%=|
|00000560| 32 20 3a 20 64 69 72 79 | 25 3d 32 20 3a 20 f4 20 |2 : diry|%=2 : . |
|00000570| 53 74 61 72 74 69 6e 67 | 20 64 69 72 65 63 74 69 |Starting| directi|
|00000580| 6f 6e 20 55 50 20 61 6e | 64 20 4c 45 46 54 0d 01 |on UP an|d LEFT..|
|00000590| f4 38 de 20 6c 69 6e 65 | 25 28 6c 65 6e 67 74 68 |.8. line|%(length|
|000005a0| 25 2c 32 29 20 3a 20 f4 | 20 78 2c 79 20 70 6f 73 |%,2) : .| x,y pos|
|000005b0| 20 6f 66 20 65 61 63 68 | 20 64 6f 74 2c 20 70 6c | of each| dot, pl|
|000005c0| 6f 74 74 65 64 3f 0d 01 | fe 32 6c 69 6e 65 25 28 |otted?..|.2line%(|
|000005d0| 31 2c 30 29 3d 36 34 30 | 20 3a 20 6c 69 6e 65 25 |1,0)=640| : line%|
|000005e0| 28 31 2c 31 29 3d 35 31 | 32 20 3a 20 6c 69 6e 65 |(1,1)=51|2 : line|
|000005f0| 25 28 31 2c 32 29 3d b9 | 0d 02 08 18 e3 20 73 74 |%(1,2)=.|..... st|
|00000600| 61 72 74 25 3d 32 20 b8 | 20 6c 65 6e 67 74 68 25 |art%=2 .| length%|
|00000610| 0d 02 12 25 6c 69 6e 65 | 25 28 73 74 61 72 74 25 |...%line|%(start%|
|00000620| 2c 30 29 3d 6c 69 6e 65 | 25 28 73 74 61 72 74 25 |,0)=line|%(start%|
|00000630| 2d 31 2c 30 29 0d 02 1c | 25 6c 69 6e 65 25 28 73 |-1,0)...|%line%(s|
|00000640| 74 61 72 74 25 2c 31 29 | 3d 6c 69 6e 65 25 28 73 |tart%,1)|=line%(s|
|00000650| 74 61 72 74 25 2d 31 2c | 31 29 0d 02 26 15 6c 69 |tart%-1,|1)..&.li|
|00000660| 6e 65 25 28 73 74 61 72 | 74 25 2c 32 29 3d a3 0d |ne%(star|t%,2)=..|
|00000670| 02 30 05 ed 0d 02 bc 21 | 73 71 75 69 67 67 6c 79 |.0.....!|squiggly|
|00000680| 6e 65 73 73 25 3d 73 71 | 75 69 67 67 6c 79 6e 65 |ness%=sq|uigglyne|
|00000690| 73 73 25 2a 34 0d 03 20 | 14 70 69 78 65 6c 74 65 |ss%*4.. |.pixelte|
|000006a0| 73 74 25 3d b3 28 2d 91 | 29 0d 03 e8 05 f5 0d 03 |st%=.(-.|).......|
|000006b0| f2 4b c8 99 20 22 57 69 | 6d 70 5f 50 6f 6c 6c 22 |.K.. "Wi|mp_Poll"|
|000006c0| 2c 25 30 30 30 30 30 30 | 30 30 30 30 30 30 31 31 |,%000000|00000011|
|000006d0| 30 30 30 30 30 31 31 30 | 30 30 30 30 31 31 30 30 |00000110|00001100|
|000006e0| 30 30 2c 64 61 74 61 25 | 20 b8 20 72 65 61 73 6f |00,data%| . reaso|
|000006f0| 6e 25 2c 62 6c 6f 63 6b | 25 0d 03 f3 61 f4 20 6d |n%,block|%...a. m|
|00000700| 61 73 6b 20 6f 75 74 20 | 63 65 72 74 61 69 6e 20 |ask out |certain |
|00000710| 65 76 65 6e 74 73 20 2d | 20 77 65 27 72 65 20 6f |events -| we're o|
|00000720| 6e 6c 79 20 69 6e 74 65 | 72 65 73 74 65 64 20 69 |nly inte|rested i|
|00000730| 6e 20 74 68 65 20 4e 75 | 6c 6c 20 63 6f 64 65 2c |n the Nu|ll code,|
|00000740| 20 6d 6f 64 65 20 63 68 | 61 6e 67 65 20 61 6e 64 | mode ch|ange and|
|00000750| 20 63 6c 6f 73 65 64 6f | 77 6e 0d 04 4c 10 c8 8e | closedo|wn..L...|
|00000760| 20 72 65 61 73 6f 6e 25 | 20 ca 0d 04 56 18 c9 20 | reason%| ...V.. |
|00000770| 30 20 3a 20 f2 75 70 64 | 61 74 65 5f 63 6f 6f 72 |0 : .upd|ate_coor|
|00000780| 64 73 0d 04 60 18 c9 20 | 31 37 20 3a 20 f2 75 73 |ds..`.. |17 : .us|
|00000790| 65 72 5f 6d 65 73 73 61 | 67 65 0d 05 78 05 cb 0d |er_messa|ge..x...|
|000007a0| 05 dc 13 fd 20 73 74 6f | 70 73 71 75 69 67 67 6c |.... sto|psquiggl|
|000007b0| 65 25 0d 06 36 05 3a 0d | 06 40 11 e6 20 62 61 63 |e%..6.:.|.@.. bac|
|000007c0| 6b 67 72 6f 75 6e 64 25 | 0d 06 4a 19 e3 20 64 65 |kground%|..J.. de|
|000007d0| 6c 65 74 65 25 3d 31 20 | b8 20 6c 65 6e 67 74 68 |lete%=1 |. length|
|000007e0| 25 0d 06 54 71 e7 20 28 | 6c 69 6e 65 25 28 64 65 |%..Tq. (|line%(de|
|000007f0| 6c 65 74 65 25 2c 32 29 | 3d b9 29 20 80 20 28 b0 |lete%,2)|=.) . (.|
|00000800| 6c 69 6e 65 25 28 64 65 | 6c 65 74 65 25 2c 30 29 |line%(de|lete%,0)|
|00000810| 2c 6c 69 6e 65 25 28 64 | 65 6c 65 74 65 25 2c 31 |,line%(d|elete%,1|
|00000820| 29 29 3d 63 6f 6c 6f 75 | 72 25 29 20 8c 20 c8 92 |))=colou|r%) . ..|
|00000830| 20 6c 69 6e 65 25 28 64 | 65 6c 65 74 65 25 2c 30 | line%(d|elete%,0|
|00000840| 29 2c 6c 69 6e 65 25 28 | 64 65 6c 65 74 65 25 2c |),line%(|delete%,|
|00000850| 31 29 0d 06 5e 05 ed 0d | 07 d0 29 c8 99 20 22 57 |1)..^...|..).. "W|
|00000860| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 2c 68 |imp_Clos|eDown",h|
|00000870| 61 6e 64 6c 65 25 2c 26 | 34 42 35 33 34 31 35 34 |andle%,&|4B534154|
|00000880| 0d 07 da 10 c8 99 20 22 | 4f 53 5f 45 78 69 74 22 |...... "|OS_Exit"|
|00000890| 0d 27 0f 05 e0 0d 27 10 | 13 dd f2 75 70 64 61 74 |.'....'.|...updat|
|000008a0| 65 5f 63 6f 6f 72 64 73 | 0d 27 1a 18 ea 20 75 70 |e_coords|.'... up|
|000008b0| 64 61 74 65 25 2c 70 69 | 78 65 6c 74 65 73 74 25 |date%,pi|xeltest%|
|000008c0| 0d 27 69 05 3a 0d 27 6a | 28 f4 20 46 69 72 73 74 |.'i.:.'j|(. First|
|000008d0| 20 75 6e 70 6c 6f 74 20 | 74 68 65 20 74 61 69 6c | unplot |the tail|
|000008e0| 20 28 69 66 20 70 6c 6f | 74 74 65 64 29 0d 27 6b | (if plo|tted).'k|
|000008f0| 05 3a 0d 27 74 11 e6 20 | 62 61 63 6b 67 72 6f 75 |.:.'t.. |backgrou|
|00000900| 6e 64 25 0d 27 7e 71 e7 | 20 28 6c 69 6e 65 25 28 |nd%.'~q.| (line%(|
|00000910| 6c 65 6e 67 74 68 25 2c | 32 29 3d b9 29 20 80 20 |length%,|2)=.) . |
|00000920| 28 b0 6c 69 6e 65 25 28 | 6c 65 6e 67 74 68 25 2c |(.line%(|length%,|
|00000930| 30 29 2c 6c 69 6e 65 25 | 28 6c 65 6e 67 74 68 25 |0),line%|(length%|
|00000940| 2c 31 29 29 3d 63 6f 6c | 6f 75 72 25 29 20 8c 20 |,1))=col|our%) . |
|00000950| c8 92 20 6c 69 6e 65 25 | 28 6c 65 6e 67 74 68 25 |.. line%|(length%|
|00000960| 2c 30 29 2c 6c 69 6e 65 | 25 28 6c 65 6e 67 74 68 |,0),line|%(length|
|00000970| 25 2c 31 29 0d 27 cd 05 | 3a 0d 27 ce 25 f4 20 54 |%,1).'..|:.'.%. T|
|00000980| 68 65 6e 20 6d 6f 76 65 | 20 61 6c 6c 20 70 6f 69 |hen move| all poi|
|00000990| 6e 74 73 20 75 70 20 61 | 20 70 6c 61 63 65 0d 27 |nts up a| place.'|
|000009a0| cf 05 3a 0d 27 d8 1e e3 | 20 75 70 64 61 74 65 25 |..:.'...| update%|
|000009b0| 3d 6c 65 6e 67 74 68 25 | 20 b8 20 32 20 88 20 2d |=length%| . 2 . -|
|000009c0| 31 0d 27 e2 27 6c 69 6e | 65 25 28 75 70 64 61 74 |1.'.'lin|e%(updat|
|000009d0| 65 25 2c 30 29 3d 6c 69 | 6e 65 25 28 75 70 64 61 |e%,0)=li|ne%(upda|
|000009e0| 74 65 25 2d 31 2c 30 29 | 0d 27 ec 27 6c 69 6e 65 |te%-1,0)|.'.'line|
|000009f0| 25 28 75 70 64 61 74 65 | 25 2c 31 29 3d 6c 69 6e |%(update|%,1)=lin|
|00000a00| 65 25 28 75 70 64 61 74 | 65 25 2d 31 2c 31 29 0d |e%(updat|e%-1,1).|
|00000a10| 27 f6 27 6c 69 6e 65 25 | 28 75 70 64 61 74 65 25 |'.'line%|(update%|
|00000a20| 2c 32 29 3d 6c 69 6e 65 | 25 28 75 70 64 61 74 65 |,2)=line|%(update|
|00000a30| 25 2d 31 2c 32 29 0d 28 | 3c 05 ed 0d 28 95 05 3a |%-1,2).(|<...(..:|
|00000a40| 0d 28 96 16 f4 20 43 68 | 65 63 6b 20 64 69 72 65 |.(... Ch|eck dire|
|00000a50| 63 74 69 6f 6e 73 0d 28 | 97 05 3a 0d 28 a0 40 e7 |ctions.(|..:.(.@.|
|00000a60| 20 28 6c 69 6e 65 25 28 | 31 2c 30 29 3e 3d 6d 61 | (line%(|1,0)>=ma|
|00000a70| 78 78 25 29 20 8c 20 64 | 69 72 78 25 3d 2d 28 94 |xx%) . d|irx%=-(.|
|00000a80| 28 64 69 72 78 25 29 29 | 20 3a 20 6c 69 6e 65 25 |(dirx%))| : line%|
|00000a90| 28 31 2c 30 29 3d 6d 61 | 78 78 25 0d 28 aa 3d e7 |(1,0)=ma|xx%.(.=.|
|00000aa0| 20 28 6c 69 6e 65 25 28 | 31 2c 30 29 3c 3d 6d 69 | (line%(|1,0)<=mi|
|00000ab0| 6e 78 25 29 20 8c 20 64 | 69 72 78 25 3d 94 28 64 |nx%) . d|irx%=.(d|
|00000ac0| 69 72 78 25 29 20 3a 20 | 6c 69 6e 65 25 28 31 2c |irx%) : |line%(1,|
|00000ad0| 30 29 3d 6d 69 6e 78 25 | 0d 28 b4 40 e7 20 28 6c |0)=minx%|.(.@. (l|
|00000ae0| 69 6e 65 25 28 31 2c 31 | 29 3e 3d 6d 61 78 79 25 |ine%(1,1|)>=maxy%|
|00000af0| 29 20 8c 20 64 69 72 79 | 25 3d 2d 28 94 28 64 69 |) . diry|%=-(.(di|
|00000b00| 72 79 25 29 29 20 3a 20 | 6c 69 6e 65 25 28 31 2c |ry%)) : |line%(1,|
|00000b10| 31 29 3d 6d 61 78 79 25 | 0d 28 be 3d e7 20 28 6c |1)=maxy%|.(.=. (l|
|00000b20| 69 6e 65 25 28 31 2c 31 | 29 3c 3d 6d 69 6e 79 25 |ine%(1,1|)<=miny%|
|00000b30| 29 20 8c 20 64 69 72 79 | 25 3d 94 28 64 69 72 79 |) . diry|%=.(diry|
|00000b40| 25 29 20 3a 20 6c 69 6e | 65 25 28 31 2c 31 29 3d |%) : lin|e%(1,1)=|
|00000b50| 6d 69 6e 79 25 0d 28 f9 | 05 3a 0d 28 fa 1c f4 20 |miny%.(.|.:.(... |
|00000b60| 66 69 6e 64 20 6e 65 77 | 20 68 65 61 64 20 70 6f |find new| head po|
|00000b70| 73 69 74 69 6f 6e 0d 28 | fb 05 3a 0d 29 04 15 6c |sition.(|..:.)..l|
|00000b80| 69 6e 65 25 28 31 2c 30 | 29 2b 3d 64 69 72 78 25 |ine%(1,0|)+=dirx%|
|00000b90| 0d 29 0e 15 6c 69 6e 65 | 25 28 31 2c 31 29 2b 3d |.)..line|%(1,1)+=|
|00000ba0| 64 69 72 79 25 0d 29 5d | 05 3a 0d 29 5e 18 f4 20 |diry%.)]|.:.)^.. |
|00000bb0| 54 68 65 6e 20 70 6c 6f | 74 20 6e 65 77 20 68 65 |Then plo|t new he|
|00000bc0| 61 64 0d 29 5f 05 3a 0d | 29 68 0d e6 20 63 6f 6c |ad.)_.:.|)h.. col|
|00000bd0| 6f 75 72 25 0d 29 72 26 | 70 69 78 65 6c 74 65 73 |our%.)r&|pixeltes|
|00000be0| 74 25 3d b0 6c 69 6e 65 | 25 28 31 2c 30 29 2c 6c |t%=.line|%(1,0),l|
|00000bf0| 69 6e 65 25 28 31 2c 31 | 29 29 0d 29 7c 1e e7 20 |ine%(1,1|)).)|.. |
|00000c00| 70 69 78 65 6c 74 65 73 | 74 25 3d 62 61 63 6b 67 |pixeltes|t%=backg|
|00000c10| 72 6f 75 6e 64 25 20 8c | 0d 29 86 1c c8 92 20 6c |round% .|.).... l|
|00000c20| 69 6e 65 25 28 31 2c 30 | 29 2c 6c 69 6e 65 25 28 |ine%(1,0|),line%(|
|00000c30| 31 2c 31 29 0d 29 90 10 | 6c 69 6e 65 25 28 31 2c |1,1).)..|line%(1,|
|00000c40| 32 29 3d b9 0d 29 9a 05 | cc 0d 29 a4 10 6c 69 6e |2)=..)..|..)..lin|
|00000c50| 65 25 28 31 2c 32 29 3d | a3 0d 29 c2 05 cd 0d 2a |e%(1,2)=|..)....*|
|00000c60| 25 05 3a 0d 2a 26 43 f4 | 20 43 68 61 6e 67 65 20 |%.:.*&C.| Change |
|00000c70| 64 69 72 65 63 74 69 6f | 6e 20 61 63 63 6f 72 64 |directio|n accord|
|00000c80| 69 6e 67 20 74 6f 20 6d | 6f 75 73 65 20 70 6f 73 |ing to m|ouse pos|
|00000c90| 69 74 69 6f 6e 20 2b 20 | 72 61 6e 64 6f 6d 20 65 |ition + |random e|
|00000ca0| 6c 65 6d 65 6e 74 0d 2a | 27 05 3a 0d 2a 30 45 70 |lement.*|'.:.*0Ep|
|00000cb0| 69 78 65 6c 74 65 73 74 | 25 3d b3 28 73 71 75 69 |ixeltest|%=.(squi|
|00000cc0| 67 67 6c 79 6e 65 73 73 | 25 29 20 3a 20 f4 20 6f |gglyness|%) : . o|
|00000cd0| 6e 6c 79 20 63 68 61 6e | 67 65 20 6f 6e 65 20 64 |nly chan|ge one d|
|00000ce0| 69 72 65 63 74 69 6f 6e | 20 61 74 20 6f 6e 63 65 |irection| at once|
|00000cf0| 0d 2a 3a 34 e7 20 70 69 | 78 65 6c 74 65 73 74 25 |.*:4. pi|xeltest%|
|00000d00| 3d 32 20 8c 20 64 69 72 | 78 25 3d b3 28 37 29 2d |=2 . dir|x%=.(7)-|
|00000d10| 34 20 3a 20 f4 20 72 61 | 6e 67 65 20 2d 33 20 54 |4 : . ra|nge -3 T|
|00000d20| 4f 20 2b 33 0d 2a 44 21 | e7 20 70 69 78 65 6c 74 |O +3.*D!|. pixelt|
|00000d30| 65 73 74 25 3d 34 20 8c | 20 64 69 72 79 25 3d b3 |est%=4 .| diry%=.|
|00000d40| 28 37 29 2d 34 0d 2a 62 | 23 c8 99 20 22 4f 53 5f |(7)-4.*b|#.. "OS_|
|00000d50| 4d 6f 75 73 65 22 20 b8 | 20 6d 6f 75 73 65 78 25 |Mouse" .| mousex%|
|00000d60| 2c 6d 6f 75 73 65 79 25 | 0d 2a 6c 29 e7 20 6d 6f |,mousey%|.*l). mo|
|00000d70| 75 73 65 78 25 3e 6c 69 | 6e 65 25 28 31 2c 30 29 |usex%>li|ne%(1,0)|
|00000d80| 20 8c 20 64 69 72 78 25 | 3d 94 28 64 69 72 78 25 | . dirx%|=.(dirx%|
|00000d90| 29 0d 2a 76 2a e7 20 6d | 6f 75 73 65 78 25 3c 6c |).*v*. m|ousex%<l|
|00000da0| 69 6e 65 25 28 31 2c 30 | 29 20 8c 20 64 69 72 78 |ine%(1,0|) . dirx|
|00000db0| 25 3d 2d 94 28 64 69 72 | 78 25 29 0d 2a 80 29 e7 |%=-.(dir|x%).*.).|
|00000dc0| 20 6d 6f 75 73 65 79 25 | 3e 6c 69 6e 65 25 28 31 | mousey%|>line%(1|
|00000dd0| 2c 31 29 20 8c 20 64 69 | 72 79 25 3d 94 28 64 69 |,1) . di|ry%=.(di|
|00000de0| 72 79 25 29 0d 2a 8a 2a | e7 20 6d 6f 75 73 65 79 |ry%).*.*|. mousey|
|00000df0| 25 3c 6c 69 6e 65 25 28 | 31 2c 31 29 20 8c 20 64 |%<line%(|1,1) . d|
|00000e00| 69 72 79 25 3d 2d 94 28 | 64 69 72 79 25 29 0d 2a |iry%=-.(|diry%).*|
|00000e10| 94 05 e1 0d 2a ee 05 3a | 0d 2a ef 05 3a 0d 4e 20 |....*..:|.*..:.N |
|00000e20| 0f dd f2 77 69 6d 70 5f | 69 6e 69 74 0d 4e 84 0f |...wimp_|init.N..|
|00000e30| de 20 64 61 74 61 25 20 | 32 35 36 0d 4e f2 3b c8 |. data% |256.N.;.|
|00000e40| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|00000e50| 73 65 22 2c 32 30 30 2c | 26 34 42 35 33 34 31 35 |se",200,|&4B53415|
|00000e60| 34 2c 74 61 73 6b 6e 61 | 6d 65 24 20 b8 20 2c 68 |4,taskna|me$ . ,h|
|00000e70| 61 6e 64 6c 65 25 0d 4f | 4c 13 73 74 6f 70 73 71 |andle%.O|L.stopsq|
|00000e80| 75 69 67 67 6c 65 25 3d | a3 0d 50 14 15 f2 66 69 |uiggle%=|..P...fi|
|00000e90| 6e 64 5f 73 63 72 65 65 | 6e 5f 61 72 65 61 0d 52 |nd_scree|n_area.R|
|00000ea0| 08 05 e1 0d 52 62 05 3a | 0d 52 63 05 3a 0d 55 f0 |....Rb.:|.Rc.:.U.|
|00000eb0| 12 dd f2 75 73 65 72 5f | 6d 65 73 73 61 67 65 0d |...user_|message.|
|00000ec0| 56 54 23 e7 20 62 6c 6f | 63 6b 25 21 31 36 3d 30 |VT#. blo|ck%!16=0|
|00000ed0| 20 8c 20 73 74 6f 70 73 | 71 75 69 67 67 6c 65 25 | . stops|quiggle%|
|00000ee0| 3d b9 0d 56 5e 18 e7 20 | 62 6c 6f 63 6b 25 21 31 |=..V^.. |block%!1|
|00000ef0| 36 3d 26 34 30 30 43 31 | 20 8c 0d 56 5f 15 f2 66 |6=&400C1| ..V_..f|
|00000f00| 69 6e 64 5f 73 63 72 65 | 65 6e 5f 61 72 65 61 0d |ind_scre|en_area.|
|00000f10| 57 1c 05 cd 0d 57 e4 05 | e1 0d 58 3e 05 3a 0d 58 |W....W..|..X>.:.X|
|00000f20| 3f 05 3a 0d 59 d8 16 dd | f2 66 69 6e 64 5f 73 63 |?.:.Y...|.find_sc|
|00000f30| 72 65 65 6e 5f 61 72 65 | 61 0d 59 dd 15 ea 20 78 |reen_are|a.Y... x|
|00000f40| 73 68 69 66 74 25 2c 79 | 73 68 69 66 74 25 0d 59 |shift%,y|shift%.Y|
|00000f50| e2 37 f4 20 46 69 6e 64 | 73 20 78 20 61 6e 64 20 |.7. Find|s x and |
|00000f60| 79 20 6d 61 78 69 6d 75 | 6d 20 63 6f 2d 6f 72 64 |y maximu|m co-ord|
|00000f70| 73 20 66 6f 72 20 74 68 | 65 20 73 63 72 65 65 6e |s for th|e screen|
|00000f80| 20 6d 6f 64 65 0d 5a 00 | 97 f4 20 46 6f 6c 6c 6f | mode.Z.|.. Follo|
|00000f90| 77 69 6e 67 20 66 69 6e | 64 73 20 6f 75 74 20 68 |wing fin|ds out h|
|00000fa0| 6f 77 20 73 63 72 65 65 | 6e 20 70 69 78 65 6c 73 |ow scree|n pixels|
|00000fb0| 20 72 65 6c 61 74 65 20 | 74 6f 20 63 6f 6f 72 64 | relate |to coord|
|00000fc0| 69 6e 61 74 65 73 20 2d | 20 68 6f 77 20 20 20 20 |inates -| how    |
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 61 6e 79 20 |        |   many |
|00000fe0| 73 68 69 66 74 73 20 61 | 72 65 20 6e 65 65 64 65 |shifts a|re neede|
|00000ff0| 64 20 74 6f 20 63 6f 6e | 76 65 72 74 20 6f 6e 65 |d to con|vert one|
|00001000| 20 74 6f 20 74 68 65 20 | 6f 74 68 65 72 2e 20 53 | to the |other. S|
|00001010| 65 65 20 50 33 35 31 20 | 50 52 4d 2e 0d 5a 0a 2d |ee P351 |PRM..Z.-|
|00001020| c8 99 20 22 4f 53 5f 52 | 65 61 64 4d 6f 64 65 56 |.. "OS_R|eadModeV|
|00001030| 61 72 69 61 62 6c 65 22 | 2c 2d 31 2c 34 20 b8 20 |ariable"|,-1,4 . |
|00001040| 2c 2c 78 73 68 69 66 74 | 25 0d 5a 14 2d c8 99 20 |,,xshift|%.Z.-.. |
|00001050| 22 4f 53 5f 52 65 61 64 | 4d 6f 64 65 56 61 72 69 |"OS_Read|ModeVari|
|00001060| 61 62 6c 65 22 2c 2d 31 | 2c 35 20 b8 20 2c 2c 79 |able",-1|,5 . ,,y|
|00001070| 73 68 69 66 74 25 0d 5a | 32 dc f4 20 46 6f 6c 6c |shift%.Z|2.. Foll|
|00001080| 6f 77 69 6e 67 20 67 69 | 76 65 73 20 78 20 70 69 |owing gi|ves x pi|
|00001090| 78 65 6c 73 2d 31 20 73 | 6f 20 74 6f 20 66 69 6e |xels-1 s|o to fin|
|000010a0| 64 20 78 20 63 6f 6f 72 | 64 73 20 77 65 20 64 6f |d x coor|ds we do|
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 78 70 69 78 |        |    xpix|
|000010d0| 65 6c 73 20 28 69 65 20 | 61 64 64 20 31 29 20 73 |els (ie |add 1) s|
|000010e0| 68 69 66 74 65 64 20 6c | 65 66 74 20 62 79 20 74 |hifted l|eft by t|
|000010f0| 68 65 20 73 68 69 66 74 | 20 66 72 6f 6d 20 61 62 |he shift| from ab|
|00001100| 6f 76 65 20 2d 31 20 20 | 20 20 20 20 20 20 20 20 |ove -1  |        |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 65 67 20 66 |        |    eg f|
|00001120| 6f 72 20 4d 4f 44 45 20 | 30 20 2d 3e 20 36 33 39 |or MODE |0 -> 639|
|00001130| 2b 31 3d 36 34 30 20 3a | 20 36 34 30 3c 3c 31 3d |+1=640 :| 640<<1=|
|00001140| 31 32 38 30 20 3a 20 31 | 32 38 30 2d 31 3d 31 32 |1280 : 1|280-1=12|
|00001150| 37 39 0d 5a 3c 2c c8 99 | 20 22 4f 53 5f 52 65 61 |79.Z<,..| "OS_Rea|
|00001160| 64 4d 6f 64 65 56 61 72 | 69 61 62 6c 65 22 2c 2d |dModeVar|iable",-|
|00001170| 31 2c 31 31 20 b8 20 2c | 2c 6d 61 78 78 25 0d 5a |1,11 . ,|,maxx%.Z|
|00001180| 46 20 6d 61 78 78 25 3d | 28 28 6d 61 78 78 25 2b |F maxx%=|((maxx%+|
|00001190| 31 29 3c 3c 78 73 68 69 | 66 74 25 29 2d 31 0d 5a |1)<<xshi|ft%)-1.Z|
|000011a0| 50 0b 6d 69 6e 78 25 3d | 30 0d 5a a0 2c c8 99 20 |P.minx%=|0.Z.,.. |
|000011b0| 22 4f 53 5f 52 65 61 64 | 4d 6f 64 65 56 61 72 69 |"OS_Read|ModeVari|
|000011c0| 61 62 6c 65 22 2c 2d 31 | 2c 31 32 20 b8 20 2c 2c |able",-1|,12 . ,,|
|000011d0| 6d 61 78 79 25 0d 5a aa | 20 6d 61 78 79 25 3d 28 |maxy%.Z.| maxy%=(|
|000011e0| 28 6d 61 78 79 25 2b 31 | 29 3c 3c 79 73 68 69 66 |(maxy%+1|)<<yshif|
|000011f0| 74 25 29 2d 31 0d 5a b4 | 0d 6d 69 6e 79 25 3d 31 |t%)-1.Z.|.miny%=1|
|00001200| 32 38 0d 5d c0 05 e1 0d | ff 46 69 6c 65 44 61 74 |28.]....|.FileDat|
|00001210| 61 82 21 53 70 72 69 74 | 65 73 00 72 00 e0 02 00 |a.!Sprit|es.r....|
|00001220| 00 43 f9 ff ff ed 0f bf | 90 03 00 9a 4d 01 00 00 |.C......|....M...|
|00001230| 00 10 00 00 00 e4 02 00 | 00 d4 02 00 00 21 66 6f |........|.....!fo|
|00001240| 6c 6c 6f 77 65 72 00 00 | 00 04 00 00 00 10 00 00 |llower..|........|
|00001250| 00 00 00 00 00 07 00 00 | 00 2c 00 00 00 80 01 00 |........|.,......|
|00001260| 00 0c 00 00 00 ff bb ff | bf bb bb aa aa aa aa aa |........|........|
|00001270| ba bb bb bb bb bb 00 00 | 00 8f ff bb fb ff af bb |........|........|
|00001280| bb bb bb bb ab aa ba bb | bb bb 00 00 00 8f f8 ff |........|........|
|00001290| aa bb fb ff bf bb bb bb | bb bb ab ba bb bb 00 00 |........|........|
|000012a0| 00 8f 88 ff bf bb bb ff | f7 ff ff ff b7 bb bb ab |........|........|
|000012b0| ba bb 00 00 00 ff 8f ff | bb bb bb ff bb bb bb ff |........|........|
|000012c0| ff bb bb bb ab bb 00 00 | 00 ff fa 88 7f b7 bb ff |........|........|
|000012d0| ff bf bf bb bb bb bb bb | bb ba 00 00 00 ab bb 8f |........|........|
|000012e0| f8 bb bb ff ff ff ff ff | b7 bb ff bb bb ab 00 00 |........|........|
|000012f0| 00 ab bb fb bf bb bb ff | 77 7f f7 ff ff bf bb bb |........|w.......|
|00001300| bb ab 00 00 00 ab bb 77 | bb bb bb ff ff ff ff bf |.......w|........|
|00001310| bb bb bb 7b b7 ab 00 00 | 00 ab bb 7b b7 bb ff ff |...{....|...{....|
|00001320| b7 bb bb fb b7 bb bb 77 | bb ab 00 00 00 ab bb bb |.......w|........|
|00001330| 77 bb bb bb bb 7f bb ff | b7 bb 7b b7 bb ab 00 00 |w.......|..{.....|
|00001340| 00 bb ba bb 7b bb bb ff | b7 fb ff ff b7 bb 77 bb |....{...|......w.|
|00001350| bb ba 00 00 00 bb ab bb | bb bb bb bb bb bb bb ff |........|........|
|00001360| ff bf bb bb ab bb 00 00 | 00 bb bb aa bb bb bb 77 |........|.......w|
|00001370| b7 bb bb bb bb fb ff af | ba bb 00 00 00 bb bb bb |........|........|
|00001380| aa bb bb bb bb bb bb bb | bb bb bb bb ff bb 00 00 |........|........|
|00001390| 00 bb bb bb bb aa aa bb | bb bb bb bb ab aa ba bb |........|........|
|000013a0| bb bb 00 00 00 bb bb bb | bb bb bb aa aa aa aa aa |........|........|
|000013b0| ba bb bb bb bb bb 00 00 | 00 ff 00 00 00 00 00 00 |........|........|
|000013c0| 00 00 00 00 00 00 00 00 | 00 00 ff ff ff ff ff 00 |........|........|
|000013d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000013e0| ff ff ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 00 ff ff ff ff ff ff | 0f 00 00 00 00 00 00 00 |........|........|
|00001400| 00 00 00 00 00 00 ff ff | ff ff ff ff 00 00 00 00 |........|........|
|00001410| ff ff 0f 00 00 00 00 00 | 00 00 ff ff ff ff f0 ff |........|........|
|00001420| 0f 00 00 00 00 00 f0 ff | ff ff ff 00 00 00 ff ff |........|........|
|00001430| ff 00 00 ff ff 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00001440| ff 0f ff ff ff 00 00 f0 | 0f 00 00 00 00 00 00 00 |........|........|
|00001450| 00 f0 ff ff 00 00 ff ff | ff 00 00 00 00 00 00 00 |........|........|
|00001460| 00 00 00 f0 ff 0f 00 00 | 00 00 ff ff ff 00 00 00 |........|........|
|00001470| 00 00 00 00 00 ff ff 0f | 00 00 00 00 00 00 ff ff |........|........|
|00001480| ff 00 00 00 00 00 f0 ff | ff 00 00 00 00 00 00 00 |........|........|
|00001490| 00 00 ff ff ff 00 00 00 | 00 ff ff 00 00 00 00 00 |........|........|
|000014a0| 00 00 00 00 00 00 ff ff | ff 00 00 00 00 00 00 ff |........|........|
|000014b0| ff ff 00 00 00 00 00 00 | 00 00 ff ff ff 00 00 00 |........|........|
|000014c0| 00 00 00 00 00 00 ff ff | ff 00 00 00 00 00 ff ff |........|........|
|000014d0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff ff |........|........|
|000014e0| 00 00 ff ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 ff 0f ff ff | ff 00 00 00 00 00 00 00 |........|........|
|00001500| 00 00 00 00 00 00 00 00 | 00 00 ff ff ff          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+